home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / GLOBAL.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-08-31  |  637 b   |  28 lines
  1. ' GLOBAL.BAS
  2. ' This program demonstrates the use of a global variable.
  3.  
  4. DECLARE SUB AddGame ()     ' declare AddGame subprogram
  5.  
  6. COMMON SHARED game$        ' declare game$ as a global variable
  7.  
  8. game$ = "Chess"            ' initialize game$ with value of "Chess"
  9.  
  10. CLS
  11.  
  12. PRINT "      In the main program, game$ = "; game$ ' display in main prog.
  13.  
  14. AddGame                                            ' display in subprogram
  15.  
  16. PRINT " Back in the main program, game$ = "; game$ ' display in main prog.
  17.  
  18. END
  19.  
  20. SUB AddGame
  21.  
  22. game$ = game$ + " and backgammon"
  23.  
  24. PRINT "In the AddGame subprogram, game$ = "; game$
  25.  
  26. END SUB
  27.  
  28.